﻿Public Class BEresponsable

#Region "Declaración de variables"

    Private codEvento As Integer
    Private codPersonal As Integer
    Private observacion As String

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodEvento As Object, _
            ByVal pCodPersonal As Object, _
            ByVal pObservacion As Object)

        Me._codEvento = pCodEvento
        Me._codPersonal = pCodPersonal
        Me._observacion = pObservacion

    End Sub

    Public Property _codEvento() As Integer
        Get
            Return Me.codEvento
        End Get
        Set(ByVal value As Integer)
            Me.codEvento = value
        End Set
    End Property

    Public Property _codPersonal() As Integer
        Get
            Return Me.codPersonal
        End Get
        Set(ByVal value As Integer)
            Me.codPersonal = value
        End Set
    End Property

    Public Property _observacion() As String
        Get
            Return Me.observacion
        End Get
        Set(ByVal value As String)
            Me.observacion = value
        End Set
    End Property

End Class
